From: Karl Heuer Date: Thu, 26 May 1994 17:38:14 +0000 (+0000) Subject: (ws-search): Fix malformed character constants. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91372 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9c481732d16d61ca8b275493ccc12344d1be0cc1;p=emacs.git (ws-search): Fix malformed character constants. --- diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index d0fb619398f..a822ba13c04 100644 --- a/lisp/emulation/ws-mode.el +++ b/lisp/emulation/ws-mode.el @@ -646,12 +646,12 @@ in ws-last-errormessage for recovery with C-q w." (message "Forward (f) or backward (b)") (let ((direction (read-char))) - (cond ((equal (upcase direction) \070) + (cond ((equal (upcase direction) ?F) (setq ws-search-string string) (setq ws-search-direction t) (setq ws-last-cursorposition (point-marker)) (search-forward string)) - ((equal (upcase direction) \066) + ((equal (upcase direction) ?B) (setq ws-search-string string) (setq ws-search-direction nil) (setq ws-last-cursorposition (point-marker))